[Common]
Description=ʾλȡʱ䲢ѡĻ׼ʱȽ
HotKeyStart=119
HotKeyStop=122
HotKeyPause=0
Enabled=1
RunOnce=1

[Script]
var t=0
var t0=0
main
  //ȡʱ
  set t=vbscall("GetNetTime")
  do ShowMsg(t)             //ʾʱ
  //趨׼ʱ
  set t0=vbscall("InitTime","2009-1-1")
  do ShowMsg(t0)            //ʾ׼ʱ
  //ʾʱ׼ʱ֮
  do ShowMsg(Trunc(t-t0))
endmain
vbsbegin
function GetNetTime()
    ' //ȡٶԭʼʱ :Thu, 08 Jan 2009 04:09:52 GMT
    Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
    XmlHttp.Open "Get", "http://www.baidu.com/", False
    XmlHttp.send
    datetxt=XmlHttp.getResponseHeader("Date")
    Set XmlHttp = Nothing
    '//ȡԭʼʱиʽ 20090108 04:09:52
    temdate = Split(datetxt, ",")
    tempvar = Replace(temdate(1), "GMT", "")
    temptim = Split(tempvar, " ")
    Select Case temptim(2)
    Case "Jan":
    mon = "01"
    Case "Feb":
    mon = "02"
    Case "Mar":
    mon = "03"
    Case "Apr":
    mon = "04"
    Case "Mar":
    mon = "05"
    Case "Jun":
    mon = "06"
    Case "Jul":
    mon = "07"
    Case "Aug":
    mon = "08"
    Case "Sep":
    mon = "09"
    Case "Oct":
    mon = "10"
    Case "Nov":
    mon = "11"
    Case "Dec":
    mon = "12"
    End Select
    '//ȡʱתΪʱ+8Сʱ
    timeGMT = CDate(temptim(3) & "" & mon & "" & temptim(1) & "" & temptim(4))
    GetNetTime = DateAdd("h", 8, timeGMT)
End Function
function InitTime(TimeStr)
    InitTime=CDate(TimeStr)
end function
vbsend
